home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Internet / WWW / Perl_WWW_Utilities / perlMIF_beta2 / mif / tmp.pl < prev   
Encoding:
Text File  |  1994-06-03  |  1.4 KB  |  43 lines
  1. $edc_sep        = ',';
  2. $edc_sep_e      = ',';
  3. $edc_seq        = ',';
  4. $edc_seq_e      = ',';
  5. $edc_or         = '|';
  6. $edc_or_e       = '\|';
  7. $edc_and        = '&';
  8. $edc_and_e      = '&';
  9.  
  10. $edc_grpo       = '(';
  11. $edc_grpo_e     = '\(';
  12. $edc_grpc       = ')';
  13. $edc_grpc_e     = '\)';
  14.  
  15. $edc_plus       = '+';
  16. $edc_plus_e     = '\+';
  17. $edc_opt        = '?';
  18. $edc_opt_e      = '\?';
  19. $edc_rep        = '*';
  20. $edc_rep_e      = '\*';
  21.  
  22. $elem_keywords  = '<TEXT\\?>|<TEXTONLY\\?>';
  23. $elem_spchars   = "$edc_seq_e$edc_or_e$edc_and_e$edc_grpo_e$edc_grpc_e".
  24.                   "$edc_plus_e$edc_opt_e$edc_rep_e$mso$msc".
  25.                   '\[\]%';
  26. $model_chars    = "$edc_seq_e$edc_or_e$edc_and_e$edc_grpo_e$edc_grpc_e".
  27.                   "$edc_plus_e$edc_opt_e$edc_rep_e";
  28. $grp_chars      = "$edc_grpo_e$edc_grpc_e";
  29. $oi_chars       = "$edc_plus_e$edc_opt_e$edc_rep_e";
  30.  
  31.  
  32. $str = "Conditionals? , (Head? , ((((Bridge Head | List | List Continue | Para) | (Caution | Note | Warning) | (Equation | Example Block | Figure Frame | Para No Wrap | Labeled List | Labeled List Tight | Labeled List Wide | Labeled List Wide Tight | Syntax Diagram | Table | Example Block Verbatim))*))*)";
  33.  
  34. @array = split(/([$model_chars])/o, $str);
  35. # $str =~ s/[$grp_chars$oi_chars]//go;
  36. # @array = split(/[$edc_seq_e$edc_and_e$edc_or_e]/o, $str);
  37. grep(s/^\s*(.*[^\s])\s*$/\1/, @array);
  38.  
  39. # print "@array\n";
  40. foreach (@array) {
  41.     print "#$_#\n";
  42. }
  43.